home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / USELOG1.FRM < prev    next >
Text File  |  1993-12-10  |  3KB  |  150 lines
  1. Version 1.00
  2. BEGIN Form Uselog1
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "User Login Script"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(17)
  11.     Left         = Char(12)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(3)
  17.     Visible      = -1
  18.     Width        = Char(57)
  19.     WindowState  = 0
  20.     BEGIN ComboBox namebox2
  21.         BackColor    = QBColor(1)
  22.         DragMode     = 0
  23.         Enabled      = -1
  24.         ForeColor    = QBColor(15)
  25.         Height       = Char(1)
  26.         Left         = Char(2)
  27.         MousePointer = 0
  28.         Sorted       = 0
  29.         Style        = 0
  30.         TabIndex     = 0
  31.         TabStop      = -1
  32.         Tag          = ""
  33.         Text         = ""
  34.         Top          = Char(1)
  35.         Visible      = -1
  36.         Width        = Char(25)
  37.     END
  38.     BEGIN CommandButton OK1
  39.         BackColor    = QBColor(7)
  40.         Cancel       = 0
  41.         Caption      = "OK"
  42.         Default      = 0
  43.         DragMode     = 0
  44.         Enabled      = -1
  45.         Height       = Char(3)
  46.         Left         = Char(36)
  47.         MousePointer = 0
  48.         TabIndex     = 1
  49.         TabStop      = -1
  50.         Tag          = ""
  51.         Top          = Char(2)
  52.         Visible      = -1
  53.         Width        = Char(14)
  54.     END
  55.     BEGIN CommandButton Exit1
  56.         BackColor    = QBColor(7)
  57.         Cancel       = 0
  58.         Caption      = "Exit"
  59.         Default      = 0
  60.         DragMode     = 0
  61.         Enabled      = -1
  62.         Height       = Char(3)
  63.         Left         = Char(36)
  64.         MousePointer = 0
  65.         TabIndex     = 2
  66.         TabStop      = -1
  67.         Tag          = ""
  68.         Top          = Char(8)
  69.         Visible      = -1
  70.         Width        = Char(14)
  71.     END
  72. END
  73. '$FORM Uselog2
  74. '$FORM Netdemo
  75. COMMON SHARED UName$
  76. COMMON SHARED UserID$
  77. TYPE ConInfo
  78.       connectnum AS INTEGER
  79.       ReturnCode AS INTEGER
  80.       ObjectType AS INTEGER
  81.       ObjectName AS STRING * 48
  82. END TYPE
  83. TYPE obinfo
  84.       ReturnCode AS INTEGER
  85.       ObjectType AS INTEGER
  86.       ObjectName AS STRING * 47
  87.       ObjectID   AS STRING * 4
  88. END TYPE
  89. TYPE Obid
  90.         StrIn AS STRING * 4
  91.         StrOut AS STRING * 8
  92. END TYPE
  93. DECLARE SUB GetConnectionInfo (Info AS ConInfo)
  94. DECLARE SUB GetObjectInfo (ObjectInfo AS obinfo)
  95. DECLARE SUB ConvertObjectID (ID AS Obid)
  96.  
  97. SUB Exit1_Click ()
  98. uselog1.HIDE
  99. Netdemo.SHOW
  100. END SUB
  101.  
  102. SUB Form_Load ()
  103. DIM Info AS ConInfo
  104. DIM num1 AS STRING * 4
  105. FOR i% = 1 TO 100
  106. Info.connectnum = i%
  107. CALL GetConnectionInfo(Info)    'Call the Procedure
  108. name$ = RTRIM$(Info.ObjectName$)
  109. strlen% = LEN(name$)
  110. Name2$ = MID$(name$, 3, strlen%) 'Strip the Nul chars.
  111.  
  112. name1% = INSTR(name$, "NOT-LOGGED-IN")
  113. IF name1% > 0 THEN GOTO notconnected
  114. IF Info.ObjectType = 1 THEN
  115. num1 = STR$(Info.connectnum)
  116. namebox2.ADDITEM num1 + Name2$
  117. namebox2.Listindex = 0
  118. END IF
  119. notconnected:
  120. NEXT i%
  121.  
  122.  
  123.  
  124. END SUB
  125.  
  126. SUB OK1_Click ()
  127. DIM ObjectInfo AS obinfo
  128. DIM ID AS Obid
  129. name$ = UCASE$(namebox2.text)
  130. strlen% = LEN(name$)
  131. ObjectInfo.ObjectName = MID$(name$, 5, strlen%)
  132. UName$ = ObjectInfo.ObjectName
  133. ObjectInfo.ObjectType = 1
  134. CALL GetObjectInfo(ObjectInfo)    'Call the Procedure
  135. IF ObjectInfo.ReturnCode <> 0 THEN
  136.      msg$ = "Invalid User. Please choose a user from the list."
  137.      MSGBOX msg$
  138.      GOTO NoUser
  139. END IF
  140.  
  141. ID.StrIn = ObjectInfo.ObjectID
  142. CALL ConvertObjectID(ID)
  143. UserID$ = ID.StrOut
  144.  
  145. uselog1.HIDE
  146. Uselog2.SHOW
  147. NoUser:
  148. END SUB
  149.  
  150.